# heading ----
message(paste0("Description: ", "script to set folder paths"),
        "\n",
        paste0("Author: ", "Cedric Chambru (Department of Economics, University of Zurich)"),
        "\n",
        paste0("Last update: ", "07 June 2023"),
        "\n",
        paste0("List of script: ", "folder_path_article"))


# script: folder_path_article ----
dir_function <- paste0(getwd(), "/r_functions/")

dir_article <- dirname(dirname(getwd()))
dir_data <- paste0(dir_article, "/data/")
dir_figures <- paste0(dir_article, "/figures/")
dir_tables <- paste0(dir_article, "/tables/")

